function GetUPTime:String;
const
Day: Integer    = 1000 * 60 * 60 * 24;
Hour: Integer   = 1000 * 60 * 60;
Minute: Integer = 1000 * 60;
Second: Integer = 1000;
var
T: LongWord;
D,H,M,S: Integer;
begin
T := GetTickCount;
D := T DIV Day;
Dec(T,D * Day);
H := T DIV Hour;
Dec(T,H * Hour);
M := T DIV Minute;
Dec(T,M * Minute);
S := T DIV Second;
Result := IntToStr(D) + ' Days ' + IntToStr(H) + ' Hours ' + IntToStr(M) + ' Minutes ' + IntToStr(S) + ' Seconds';
end;